home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD013b.dsk / SLIDE THE LETTERS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  138 lines
  1. 10  DIM A$(4,4)
  2. 20  HOME 
  3. 30  VTAB 12
  4. 40  PRINT "DO YOU WANT INSTRUCTIONS (Y/N)";
  5. 50  GET Q$
  6. 60  PRINT 
  7. 70  IF Q$ = "Y"  THEN  GOSUB 960
  8. 80  HOME 
  9. 90  VTAB 12
  10. 100  PRINT "    WAIT WHILE I MESS UP THE LETTERS"
  11. 110 Z$ = "ABCDEFGHIJKLMNO+"
  12. 120 I = 1
  13. 130  FOR Y = 1 TO 4
  14. 140  FOR X = 1 TO 4
  15. 150 A$(X,Y) =  MID$ (Z$,I,1)
  16. 160 I = I +1
  17. 170  NEXT X
  18. 180  NEXT Y
  19. 190  GOSUB 270
  20. 200  GOSUB 860
  21. 210  VTAB 12
  22. 220  PRINT "WHICH LETTER >";
  23. 230  GET B$
  24. 240  PRINT B$
  25. 250  GOSUB 600
  26. 260  GOTO 200
  27. 270  FOR Q = 1 TO 100
  28. 280 X =  INT( RND(1) *4 +1)
  29. 290  ON X GOTO 300,350,400,450
  30. 300  GOSUB 500
  31. 310  IF A -1 <1  THEN 280
  32. 320 A1 = A -1
  33. 330 B1 = B
  34. 340  GOTO 550
  35. 350  GOSUB 500
  36. 360  IF B +1 >4  THEN 280
  37. 370 B1 = B +1
  38. 380 A1 = A
  39. 390  GOTO 550
  40. 400  GOSUB 500
  41. 410  IF A +1 >4  THEN 280
  42. 420 A1 = A +1
  43. 430 B1 = B
  44. 440  GOTO 550
  45. 450  GOSUB 500
  46. 460  IF B -1 <1  THEN 280
  47. 470 B1 = B -1
  48. 480 A1 = A
  49. 490  GOTO 550
  50. 500  FOR A = 1 TO 4
  51. 510  FOR B = 1 TO 4
  52. 520  IF A$(B,A) = "+"  THEN  RETURN 
  53. 530  NEXT B
  54. 540  NEXT A
  55. 550 X$ = A$(B1,A1)
  56. 560 A$(B,A) = X$
  57. 570 A$(B1,A1) = "+"
  58. 580  NEXT Q
  59. 590  RETURN 
  60. 600  FOR A = 1 TO 4
  61. 610  FOR B = 1 TO 4
  62. 620  IF A$(B,A) = B$  THEN 650
  63. 630  NEXT B
  64. 640  NEXT A
  65. 650  FOR C = 1 TO 4
  66. 660  FOR D = 1 TO 4
  67. 670  IF A$(D,C) = "+"  THEN 700
  68. 680  NEXT D
  69. 690  NEXT C
  70. 700  IF B +1 = D  AND A = C  THEN 790
  71. 710  IF B -1 = D  AND A = C  THEN 790
  72. 720  IF A +1 = C  AND B = D  THEN 790
  73. 730  IF A -1 = C  AND B = D  THEN 790
  74. 740  PRINT  CHR$(7); CHR$(7); CHR$(7)
  75. 750  PRINT ">>>>> ILLEGAL MOVE <<<<<"
  76. 760  FOR O = 1 TO 1000
  77. 770  NEXT O
  78. 780  RETURN 
  79. 790 X$ = A$(B,A)
  80. 800 A$(D,C) = X$
  81. 810 A$(B,A) = "+"
  82. 820  IF A$(1,1) = "A"  AND A$(2,1) = "B"  AND A$(3,1) = "C"  AND A$(4,1) = "D"  AND A$(1,2) = "E"  AND A$(2,2) = "F"  AND A$(3,2) = "G"  AND A$(4,2) = "H"  THEN 840
  83. 830  RETURN 
  84. 840  IF A$(1,3) = "I"  AND A$(2,3) = "J"  AND A$(3,3) = "K"  AND A$(4,3) = "L"  AND A$(1,4) = "M"  AND A$(2,4) = "N"  AND A$(3,4) = "O"  AND A$(4,4) = "+"  THEN  GOSUB 860: INVERSE : FLASH : VTAB 12: HTAB 6: PRINT "YOU'VE DONE IT !!": GOTO 1300
  85. 850  RETURN 
  86. 860  HOME 
  87. 870  FOR A = 1 TO 4
  88. 880  FOR B = 1 TO 4
  89. 890  VTAB A *2
  90. 900  HTAB B *3
  91. 910  IF B = 4  THEN  PRINT A$(B,A): GOTO 930
  92. 920  PRINT A$(B,A);"  ";
  93. 930  NEXT B
  94. 940  NEXT A
  95. 950  RETURN 
  96. 960  HOME 
  97. 970  HTAB 14
  98. 980  INVERSE : FLASH : PRINT "INSTRUCTIONS"
  99. 990  NORMAL : PRINT 
  100. 1000  PRINT "  THE GAME IS PLAYED ON A FOUR BY FOUR"
  101. 1010  PRINT "GRID . THE OBJECT OF THE GAME IS TO"
  102. 1020  PRINT "ARRANGE THE LETTERS (A-O) AS THEY ARE"
  103. 1030  PRINT "BELOW ."
  104. 1040  PRINT : PRINT 
  105. 1050  PRINT "A  B  C  D"
  106. 1060  PRINT 
  107. 1070  PRINT "E  F  G  H"
  108. 1080  PRINT 
  109. 1090  PRINT "I  J  K  L"
  110. 1100  PRINT 
  111. 1110  PRINT "M  N  O  +"
  112. 1120  VTAB 24
  113. 1130  PRINT "PRESS "; CHR$(123);"RETURN"; CHR$(125);" TO CONTINUE";
  114. 1140  INPUT Q$
  115. 1150  HOME 
  116. 1160  PRINT "  I WILL RANDOMLY ARRANGE THE LETTERS"
  117. 1170  PRINT "FOR YOU . THE '+' REPRESENTS A SPACE"
  118. 1180  PRINT "THAT THE LETTERS CAN BE MOVED INTO ."
  119. 1190  PRINT 
  120. 1200  PRINT "  TO MOVE A LETTER INTO THE SPACE YOU"
  121. 1210  PRINT "JUST PRESS THE LETTER ON THE KEYBOARD .";
  122. 1220  PRINT 
  123. 1230  PRINT "  ONLY LETTERS VERTICALLY AND"
  124. 1240  PRINT "HORIZONTALLY ADJACENT TO THE PLUS-SIGN"
  125. 1250  PRINT "CAN BE MOVED INTO THE SPACE ."
  126. 1260  VTAB 24
  127. 1270  PRINT "PRESS "; CHR$(123);"RETURN"; CHR$(125);" TO CONTINUE";
  128. 1280  INPUT Q$
  129. 1290  RETURN 
  130. 1300  FOR I = 1 TO 2000
  131. 1310  NEXT I
  132. 1320  NORMAL : HOME 
  133. 1330  VTAB 12
  134. 1340  INVERSE : PRINT "DO YOU WANT ANOTHER GAME (Y/N)";
  135. 1350  NORMAL : GET B$
  136. 1360  PRINT 
  137. 1370  IF B$ = "Y"  THEN  CLEAR : GOTO 10
  138. 1380  END